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RRR = RRR 
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D 11 
**F TLE®*1D**OUTPUT 
000000 UU UU TITTTTTTTT PPPPPPPP UU UU 
000000 UU UU TTTTTTTTTT PPPPPPPP UU UU 
00 0O UU UU TT PP PP UU UU 
00 00 UU UU TT PP PP UU UU 
00 0O UU UU TT PP PP UU UU 
00 00 UU TT PP PP UU UU 
00 00 UU UU TT PPPPPPPP UU UU 
00 00 UU UU TT PPPPPPPP UU UU 
00 OO UU UU TT PP UU UU 
00 00 UU UU TT PP UU UU 
00 00 UU UU TT PP UU UU 
00 UU UU TT PP UU UU 
000000 UUUUUUUUUU TT PP UUUUUUUUUU 
000000 UUUUUUUUUU TT PP UUUUUUUUUU 
LL 111111 SSSSSSSS 
LL 1111 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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0 MODULE a fa ( A Le ‘Print Symbiont == output routines’ 
ADDRESSING _MODE POC EXTERNAL = GENERAL) 
BEGIN 


' 
PITTI LILI LILLE LILI LIL LLL Liiiiliiiiiiiiiiiitiiil 
is , 
is COPYRIGHT (c) 1978, 1980, 1982, 1984 

is DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 
is ALL RIGHTS RESERVED 


!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt bs 
't ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE ~ at's THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
be Fanusrennee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
® 


® 
® 
® 
® 
: ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* 
te 
*® 
® 
® 
® 
*® 
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!® CORPORATION. 
it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i FACILITY: 

Print Symbiont. 

i ABSTRACT: 
Output routines. 
00 i ENVIRONMENT: 
0040 i VAX/VMS user mode. 
oe A i 
0043 AUTHOR: G. Robert, CREATION DATE: 31-Aug-1982 
0045 MODIFIED BY: 
0047 ! 38-006 RRB3006 Rowland R. Bradley 24-Jul-1984 
Beo Add routine headers. 
0050 ! 38-005 GRR3005 Gregory R. Rober 29-Apr-1984 
0051 ; FT2 bugfixes. Accept gaglict OPEN/CLOSE calls instead 
ones of relying upon START 
Boe ‘ 38-004 RRB3004 Rowland R. Bradley 27-Apr-1984 
055 : Add support for storage, initialization, and” ultimate 
opes display of the entire device name. 
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H 8 038 2.5 38-003 GRR3003 Gregory R. Robert 23-Aug-1983 
; 9 : | Bugfixes, page_setup_modules, form_setup_modules, 

; & oo 1! sheet_feed, Symbiont initiated pauSe_task and stop_stream, 
: e obo: : hangup code, read and write item services 

 — 0065 1! 38-002 GRR3002 Gregory R. Robert 03-Aug-1983 
3 ¢: Ooee : Rewrite for new design. 

; 666 0066 1! 38-001 GRR3001 Gregory R. Robert 23-Jul-1983 
; Of 0067 1! Created new module. 

; «668 0068 1! 

; @& 0069 1! 

;. fe 0070 1 !e* 
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21 PRTSMB.SRCJOUTPUT .B32 (3) 


on 
Cc 


ZSBTTL 'PSMSOUTPUT' 
! Functional Description: 
desc 


Formal Parameters: 
Idesc 

Implicit Inputs: 
none 


Implicit Outputs: 
none 


Returned Value: 
non 


eee ee ee ee 


' Side Effects: 

none 

GLOBAL ROUTINE PSMSOUTPUT ( 
SMB_CONTEXT : REF SLONGWORD, 
USER_CONTEXT : REF VECTOR 
FUNCTION : REF SLONGWORD, 

FUNC_DESC : REF VECTOR, 

FUNC ARG : REF SLONGWORD 


BEGIN | 
— -FUNCTIONC) OF 


CPSMSK WRITE, PSMS$K_WRITE_NOFORMAT): 
LOCAL IO_FUNC : INITIAL (10$_WRITELBLK); 


WANN RININININININININD 2 2 3 2 OO OS SS SH DOOOOOCCOCOCO 


ery wooovono 
DOWN VFWN $0 OONOAUE WN 0 OONO UE WN 0 OONOAUE WN (OO ONOUE WN" ODOOnNOu 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
3 
; LOCAL SIZE, ADDRESS; 
3 
3 
3 
3 
; 
4 
4 
4 


ee ee Leer 


7 
7 
7 
, 
7 BIND 108 = .SMB_CONTEXTC) : S$BBLOCK; 
4 BIND SCB = .JOBTIOB_A_CONTEXT] : S$BBLOCK; 
, If device was hungup then mark it unavailable and request stop stream 
8 iF TESTBITSC (SCBCPSM$V_HANGUP)) 
8 THEN 

3 8 beste 

3 8 SCBCPSMSL_DEVICE_STATUS] = .SCBCPSM$L_DEVICE STATUS] OR 

3 8 (SMBMSGS$M_UNAVAILABLE OR SMBMSG$M_STOP_STREAM) ; 

4 8 RETURN SS$_HANGUP; 

? END; 

: a oFUNCTIONC EQL PSMSK_WRITE_NOFORMAT 

7 4 Md - SCBCPSMSL_DEVICE_CLASS] EQL DCS_TERM | 

4 b36 IO_FUNC = JOS_WRITELBLK OR IOSM_NOFORMAT 

4 09 ELSE . 

¢ Bae IO_FUNC = JO$_WRITEPBLK; i 

5 096 STRSANALYZE_SDESC_Ri (.FUNC_DESC; SIZE, ADDRESS) ; 


€ 
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; 13 1097 

3 P 1098 RETURN_IF_ERROR_ ($010 { 

; 154 P 1099 FUNC = .10_ FUNC 

; 155 P 1100 CHAN = ; SCBLPSHEL CHANNEL), 

3 128 P 1101 $B = 10BC10B_Q_TOsB), 

: 15 p 1108 ASTADR = WRITE_AST; 

; 158 P 110 ASTPRM = 108, 

; 159 P 1104 Pi = .ADDRESS, 

; 160 1105 P2 = .SIZE)); 

: 161 1106 END; 

3 166 1107 

; 16 1108 CPSMS$K_START_TASK): 

> 164 1109 B 

3 169 1110 BIND SCB = .SMB Spl? : SBBLOCK; 

; 166 11171 LOCAL BUFFER : SBBLOCK (8); 

; 167 Wi¢ 3 LOCAL DEVBUFSIZ : VOLATILE; 
: 168 113 3 LOCAL ITEM_LIST : SITMLST_OECL (ITEMS=2); 

3; 70 P1115 3 SITMLST_INIT (ITMLST=ITEM_LIST, 
; «6171 P1116 3 (BUFADR=BUFFER +4, ITMCOD=DVI$_DEVDEPEND OR DVISC_SECONDARY), 
; \7¢ BB ; (BUFADR=DEVBUFSIZ, ITMCOD=DVIS_DEVBUFSIZ OR DVISC_SECONDARY)); 
3 76 P1119 3 RETURN_IF_ERROR. (S$GETDVIW 
3 17? 11S ; (CRAN=.SCBCPSMSL_CHANNEL), ITMLST=ITEM_LIST)); 

£ } 
s ire 1122 3 ! Set the page length so the driver can compute number of Line 

; 178 1123 3 ! feeds for devices lacking mechanical form feed -- preserve the 

; 4 Vise ; class type and width information. 

3 We 1126 3 BUFFER (0,0,08,0) = .SCBCPSMS$L_DEVICE_CLASS); 

; tee 1127 3 BUFFER (1,0,08,0J] = .SCBLPSMSL_DEVICE_TYPEJ; 

> «183 1128 3 BUFFER (2,0,16,0) = .DEVBUFSIZ; 

3 ie 1163 ; BUFFER (7,0,08,0) = .SCBLPSM$L_FORM_LENGTH); 

; «6186 P1131 3 RETURN_IF_ERROR. ($Q10W 

3 HH 1136 ; (FONC=JO$_SETMODE, CHAN=.SCBCPSM$L_CHANNEL], P1=BUFFER, P2=8)); 
; «(189 1134 3 RETURN SS$_NORMAL; 

; 19 1135 2 END; 

; (191 1136 e 

; +4 1137 ; CPSM$K_CLOSE): 

; 1138 BEGIN 

: 194 1139 3 BIND SCB = .SMB_CONTEXTC] : SBBLOCK; 

s 195 1140 3 RETURN STOP_PRIANTER (SCBCPSMS$L_CHANNEL], SCBCPSM$Q_DEVICE_NAME)); 

; 196 1141 § END; 

; «197 1386 

; 198 114 CPSMSK_OPEN): 

; 199 1144 BEGIN 

; $30 1145 BIND SCB = .SMB_CONTEXTC] : SBBLOCK; 

; Bt 1108 LOCAL DEVDEPEND : $8BLOCK(8); 

; $08 P 1148 RETURN_IF_ERROR_ (START_PRINTER ( Ae 

3; 204 P 1149 -FONC_DESC, ! = specified device name 

3 soe P ars -FUNC_ARG, i = resultant device status 

: 206 P 1151 SCBCPSM$L_CHANNEL), ! = channel assigned 

s dor me 1136 SCBLPSMS$L_DEVICE_CLASS), ! = device class 

; 208 P 115 SCBCPSMSL_DEVICE_TYPE), ! = device type 


END 


- SCBCPSMSL 3483 TYPE] aH DT$_LP11 
AND (NOT .DEVBEPENDCCP$v_TAB]) 


N 
SCBCPSMSV_EXPAND_TABS] = 1; 
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TPUT rint Symbiont -- output routines 16-Sep-1984 1:4 AX-11 Bliss-32 V4.0-742 
704-000 SMSOUTPUT ' 1o-ge8- 198s 95:88:43 PRTSMB.SRCJOUTPUT .B32; 1 
09 P FUNC_DESC, ' = resultant device name 
19 p DEVDEPEND ! = device dependent bits 
1 d3 
i IF .SCBCPSMSL_DEVICE_CLASS] EQL DC$_TERM 
14 THEN 
15 BEGIN 
\$ IF NOT .DEVDEPENDCTTS$V_MECHTAB) 
$i8 SCBCPSM$V_EXPAND_TABS] = 
$9 P RETURN_IF =ERROR ore 
1 P FUNC 10$ ef TMODE ae IOSM_CTRLYAST, 
$§ P MAN = .ScB Any CHANNEL]; 
22 P P1 = pensHancy “DISPATCH TABLE + 
224 Pp CPSMSL_STREAM_INDEX 
225 Pp PSM$S _HANGUP_DISPATCH "ENTRY), 
226 P2 = 0)); 
2e7 
38 
23 
23 
3 
3 
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2 

2 

234 RETURN SS$_NORMAL; 

235 END; 

236 

237 CPSM$K_CANCEL): 

238 BEGIN 

239 BIND SCB = .SMB_CONTEXTC) : S$BBLOCK 
si9 m IF_ERROR_ (S$CANCEL (CHAN=. SCOLPSMSL _CHANNEL))); 
stg 

24 COTHERWISE): 

sis RETURN PSM$_FUNNOTSUP; 

246 TES; 

247 

248 PSM$_PENDING 

249 

250 END; 
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I IBSFREE _vM 
DESC 
RN STRSANALYIE™ -SDESC_R 
_STRBCONC 
STRSCO 
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a4 DX, gSTRSEREET _DX_R4 
Bx, SLEFT 
FIX, "ST FRSRIGHT 
ANGUP DISPATCH ENTRY 
FFEROUE $ EOF 
psn MS. on § 


a 


RRAGIG 


, PSM$-MODNOTFND 


IN 
TRN PSM$-SUSPEND, PSM$_TOOMANYLEV 
TRN SMBS NVSTHNGR SMBS_INVSTRLEV 
TRN SMBS NOMORE I TEMS 
TRN MSREPORT, SMBSSEND_TO_JOBCTL 
TRN PeMSSTOR E_ERR 
PSMSHANGUP DESPATCH TABLE 
EXTRN SYS$QI0, SYSSGETDVIQ 
SEXTRN Syesa1ou, SYS$CANCEL 


.PSECT CODE,NOWRT,2 
OFFC 00000 “ENTRY PSMSOUTPUT, Save R2,R3,R4,R5S,RO.R7,RB/RI,= 
00002 MOVAB sysé010, R6 
ar UNcTION, R3 
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DESC RO 

ANALYZE _SDESC_R1 
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v04~000 


v04-000 SMSOUT 


7E 7C 00148 CLRQ 
7E D4 QO14A CLRL 
50 O22C C2 00000000G 8F C5 0014C ULL3 
0000000060040 3F Bat ee PUSHAB 
7E 7C 00150 CLRQ 
7E + Bot e4 CLRL 
7E AS 8F 9A 00161 MOVZBL 
018C Ge DD 00165 PUSHL 
E 04 00169 CLRL 
66 of Fe 0168 CALLS 
11 E8 OO16E BLBS 
04 Bott RET 
01 O1A4 «= C2_—s«éO \s 10$ CMPL 
09 i 0017 BNEQ 
04 20 «AE 05 €0 00179 BBS 
OC Ae 02 88 0017 BISB2 
50 01 DO 00182 118: MOVL 
04 0018 RET 
01 53 D1 00186 12$ CMPL 
13 12 00189 BNEQ 
50 04 BC 00 00188 MOVL 
018C CO DD 0018F PUSHL 
000000006 00 4 FB 00193 CALLS 
09 0 €E8 Q019A 13$ BLBS 
04 00190 RET 
50 000000006 8F DO 0019E 14% MOVL 
04 001A5 RET 
50 000000006 8F DO 001A6 158: MOVL 
04 OO1AD 168: RET 


; Routine Size: 430 bytes, Routine Base: CODE + 0000 
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-(SP) 


-(SP) 
#PSMSS_HANGUP_DISPATCH_ENTRY, 556(R2), RO 


PSMSHANGUP_ DISPATCH. TABLELROS 


396(RO) 

#1, SYSSCANCEL 
STATUS, 15$ 
#PSM$_FUNNOTSUP, RO 


#PSM$_PENDING, RO 
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Print Symbiont -- output routines 16-Sep-1984 02:21:4 AX-11 Bliss-32 V4.0-742 
START PRINTER 18-88-1382 Og:gti49 PRISMB. SRC IOUTPUT B32: 1 
1396 1 ZSBTTL ‘START_PRINTER' 
1197 1 ! Functional Bescription: 
1198 1! ?desc 
1199 1! 
1200 1 ! Formal Parameters: 
1302 | i Implicit Inputs 
! Implicit Inputs: 
1 8g 1! non 
1206 1! 
1205 1 ! Implicit Outputs: 
1206 1! none 
1soe 1! 
1208 1 ! Returned Value: 
1209 1! non 
+, 2. 2 oe 
1211 1°! Side Effects: 
1318 1 i sate | 
1214 1 ROUTINE START_PRINTER ( XSBTTL ‘START_PRINTER’ 
1215 1 DEVICE_NAME, 
1216 1 DEVICE_STATUS : REF SLONGWORD, 
1217 1 CHANNE : REF SWORD, 
1218 1 DEVICE_CLASS : REF SLONGWORD, 
1219 1 DEVICE TYPE : REF SLONGWORD, 
1220 1 OUT_DEVICE NAME , ? 
1221 1 OUT-DEVDEPEND : REF VECTOR 
1222 1 d= 
1223 2 BEGIN 
1224 2 PARAMETER_INDEX. (DEVICE_NAME, DEVICE_STATUS, CHANNEL, 
1¢6? § DEVICE_CLASS, DEVICE_TYPE, OUT_DEVICE_NAME, OUT_DEVDEPEND); 
1227 2 LOCAL 
1228 2 CHAN : INITIAL (0), 
1229 2 ITEM_LIST : SITMLST_DECL (CITEMS=4), 
1230 2 DEVDEPEND : $BBLOCKE4] VOLATILE, 
1231 2 DEVSTATUS : INITIAL (0), 
1232 2 DEVCLASS : VOLATILE, 
1233 2 DEVTYPE : VOLATILE, 
1234 2 DEVNAMSIZ : INITIAL (0), 
1235 2 DEVNAMBUF VECTOR (64, BYTE] VOLATILE, 
1236 2 STATUS_1 
1237 2 ; 
1238 2 
1239 MAP 
: “3 DEVSTATUS : SBBLOCK; 
1seg SITMLST_INIT (ITMLST=ITEM_LIST, 
124 2 (BUFADR=DEVDEPEND, ITMCOD=DV1$_DEVDEPEND OR DVISC_SECONDARY), 
1244 § (BUFADR=DEVCLASS, ITMCOD=DVI$_DEVCLASS OR DVISC_SECONDARY), 
1245 (BUF ADR=DEVTYPE, T =DVIS_DEVTYP DVISC_SECONDARY), 
1246 (BUFADR=DEVNAMBUF, ITMCOD=DVIS_FULLDEVNAM OR DVISC_SECONDARY, 
iste BUFSIZ=ZALLOCATION(DEVNAMBUF), RETLEN=DEVNAMSIZ) 
1249 ; 
1$20 Ms PARAMETER_PRESENT_ (CHANNEL) 
1252 CHANNELC] = 0; 
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1465S 
LLOC (DEVNAM=.DEVICE_NAME); 
EQL SS$_DEVALRALLOC ~ 
oh hae DEVALLOC; 


RETURN .STATUS_1; 


RETURN_IF_ERROR_ (S$ASSIGN (DEVNAM=.DEVICE_NAME, CHAN=CHAN)); 
IF PARAMETER _PRESENT_ (CHANNEL) 


CHANNELC) = .CHAN; 


RETURN_IF_ERROR_ (SGETDVIW (CHAN=.CHAN, ITMLST=ITEM_LIST)); 
it  ertact chinaracem (OUT_DEVDEPEND) 
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OUT_DEVDEPENDCO] = .DEVDEPEND; 


SELECTONE .DEVCLASS OF 
SET 
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COC$_LPJ: 
TF .DEVDEPENDCLP$V_LOWER] 


DEVSTATUSCSMBMSG$V_LOWERCASE] = 
COC$_TERM): 
BEGIN 


DEVSTATUSCSMBMSG$V_TERMINAL] = 
i -DEVDEPENDLTT$V_MODEM) 


HEN 
IF ,DEVDEPENDLTTSV_REMOTE] 
_DEVSTATUSCSMBMSGSV, REMOTE] = 


RETURN SS$_HANGUP; 
tei . DEVDEPENDCTTS$V_LOWER) 


“ DEVSTATUSCSMBMSG$V_LOWERCASE] = 


COTHERWISEJ: 


AX-11 Bliss-32 V 
PRTSMB.SRC OUTPUT 


BEGIN 
RETURN_IF_ERROR_ (STOP arin (CHANNELC], .DEVICE_NAME)); 
RETURN 0; 


! Better message needed. 
END; 


TES; 


IF NOT PARAMETER_PRESENT_ (CHANNEL) 
RETURN_IF_ERROR_ (STOP_PRINTER (CHANNELL], .DEVICE_NAME)); 
IF PARAMETER_PRESENT_ (DEVICE_STATUS) 
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»DEVSTATUS; 
(DEVICE_CLASS) 


1984 02:21:4 AX-11 Bliss-32 V4.0-742 
sare r 5:92:99 PRTSMB.SRCJOUTPUT.B32;1 


i * + esrciteabions PRESENT. (DEVICE_TYPE) 


F _PARAMETER_PRESENT_ (OUT_DEVICE_NAME) 
RETURN_IF_ERROR_ (STRSCOPY_R (.OUT_DEVICE_NAME, DEVNAMSIZ, DEVNAMBUF)); 


t- he dm ne eae -- output routines 

; 366 0 

i 367 1 DEVICE _STATUSC) = 

; $9 § If ePARAMETER _PRESENT_ 

; 4 3 EN DEVICE _CLASSCJ = .DEVCLASS; 
: ig 7 

> 374 8 

: 375 9 EN DEVICE _TYPEC? = .DEVTYPE; 
: 376 0 

s 377 1 

s 578 ¢ TheN 

; 379 2 

; 380 4 2 

: 381 5 2 SS$_NORMAL 

; 382 6 2 

s 3385 7 1 END; 


-EXTRN SYS$ALLOC, SYSSASSIGN 
0004 00000 START_PRINTER: 
WORD 


‘ Save R2 
SE FF7C CE 9E 00002 MOVAB <-132(SP), SP 
7E 04 00007 CLRL CHAN 
52 D4 00009 CLRL DEVSTATUS 
04 AE D4 00008 CLRL DEVNAMSIZ 
50 54 AE 9E OOOOE MOVAB ITEM_LIST, $$ITMBLKPTR 
80 000B0004 8F DO 00012 OVL #720900, (S$ITMBLKPTR)+ 
80 50 AE 9E 00019 MOVAB ODEVDEPEND, ($$I1TMBLKPTR)+ 
80 D4 00010 CLRL ($$ITMBLKPTR) + 
80 00050004 8F DO OQOTF MOVL #327684, ($$ITMBLKPTR)+ 
80 4C AE 9E 00026 MOVAB DEVCLASS, ($$ITMBLKPTR)+ 
80 D4 0002A CLRL ($$1 TMBLKPTR) + 
80 00070004 8F DO 0002C OVL #458756, ($$ITMBLKPTR)+ 
80 48 AE 9E 00033 MOVAB ODEVTYPE, (S$$ITMBLKPTR) + 
80 D4 00037 CLRL ($$I1TMBLKPTR) + 
80 00£90040 8F DO 00039 MOVL #15269952, (S$SITMBLKPTR)+ 
80 08 AE 9E 00040 MOVAB DEVNAMBUF, ($$ITMBLKPTR) + 
80 04 AE 9E 00044 MOVAB ODEVNAMSIZ, ($$ITMBLKPTR) + 
80 D4 00048 CLRL ($$1TMBLKPTR) + 
03 6¢ 91 0004, CMPB (AP), #3 
1F 00040 BLSSU._1$ 
Oc ac D3 0004F TSTL 12 (AP) 
03 13 00052 BEQL 1$ 
0c «BC B4 00054 CLRW @CHANNEL 
7E 7C 00057 1$: CLROQ -(SP) 
7E 7C 00059 CLRQ -(SP) 
04 AC DD 00058 PUSHL DEVICE NAME 
600000006 00 05 FB BOE CALLS #5, SYS$ALLOC 
0000064 8F 50 D1 9006 CMPL STATUS_1, #1601 
05 12 0006C BNEQ 2s 
50 0840 ef 3¢ ie MOVZWL #2112, STATUS_1 
35 0 E9 9007 2$: LBC STATUS_1, 4$ 
7E 7C 00076 CLRO -(SP) 


1214, 
1223. 
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364 bytes, Routine Base: CODE + O1AE 


Routine Size: 
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Print Symbiont == output routines 16-Sep-1984 02:21:4 AX-11 Bliss-32 V4.0-742 
STOP “PRINTER 14- =tep- -1984 08: gf: PRTSMB.SRCJOUTPUT.B32;1 
1328 1 XSBTTL ‘STOP_PRINTER' 
1329 1°! Functional” Description: 
: 9 : } Idesc 
1 ¢ 1 ! Formal Parameters: 
1 1! desc 
13346 1°! Implicit Inputs: 
1535 1! none 
1336 1! 
1337 1°! Implicit Outputs: 
1338 1! none 
1339 1! 
1340 1 ! Returned Value: 
1341 1! non 
1 Bp ee 
134 1 ! Side Effects: 
1344 1! non 
1345 1 !<- 
1346 1 ROUTINE STOP_PRINTER ( 
1347 1 CHANNEL : REF SWORD, 
1348 1 DEVICE_NAME 
1349 1 = 
1350 § BEGIN 
1351 
1326 2 LOCAL 
135 5 STATUS_1, 
1354 STATUS » 2 
1355 2 : 
1356 § 
V32e § STATUS_1 = SDASSGN (CHAN=.CHANNEL([)); 
1323 § CHANNELC) = 0; 
130) § STATUS_2 = SDALLOC (DEVNAM=.DEVICE_NAME); 
1303 2 If NOT .STATUS_1 
1364 § THEN 
1365 RETURN .STATUS_1; 
1366 2 
1367 2 .STATUS_2 
1368 2 
1369 1 END; 
-EXTRN SYSSDASSGN, SYSSDALLOC 
0004 00000 STOP_PRINTER: 
-WORD Save R2 
7E 04 BC 3C 00002 MOVZWL SCHANNEL, -(SP) 
000000006 99 9 Fe 0006 CALLS #1, SY SSDASS6N 
0 pO 00000 MOVL RO. STATUS_1 
04 BC B4 0001 CLRW sy ie 
—E 04 0001 CLRL 
08 AC ODD 0001 PUSHL agvice NAME 
000000006 09 9s . 0018 CALLS Wee ig” 
0 E8 OOO1F BLBS STAT 
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; Routine Size: 
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5 
A 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 i 
1 
1 
1 
; 
: 
2 
2 
2 
1 


m 
T 
ZSBTTL ‘WRITE_AST’ 

' Functional Bescription: 
?desc 

i Formal Parameters: 

4 Idesc 

! Implicit Inputs: 

none 

i Implicit Outputs: 

none 

i Returned Value: 

non 


Side Effects: 


: none 
ROUTINE WRITE_AST ( 
108 : REF $BBLOCK 
: NOVALUE = 
BEGIN 
LOCAL 


FiINCTION_ STATUS 


FUNCTION_STATUS = .10BCI0B_W_IO_STATUS); 
PSMSREPORT (10B, FUNCTION_STATUS); 


END; 
0000 00000 WRITE_AST: 
- WORD 
50 04 AC 00 00002 MOVL 
7E Oc AO 3C 00006 MOVZWL 
5E DD QOO0A PUSHL 
04 AC 9F 0000C PUSHAB 
000000006 00 02 FB Boot CALLS 
04 00016 ET 


23 bytes, Routine Base: CODE + 0340 


Save nothing 

108, RO 

1g me FUNCTION_STATUS 
108 
#2, PSMSREPORT 


AX=11 Bliss-32 V4.0-742 
PRTSMB.SRCJOUTPUT .B32; 1 


1388 
1397. 


1399 


1401 


I 
-- output routines 16-Sep-1984 02:21:4 AX-11 Bliss-32 V4.0-742 e 
. 14-S$ 1984 08 é _— 


=74 1 
255:1 PRTSMB.SRCJOUTPUT .B32; 1 (7 


PSECT SUMMARY 
Bytes Attributes 
855 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 
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a ee Symbols oooooeee Pages Processing 

: File Total Loaded Percent Mapped Time 

;  _$255$DUA28:(SYSLIBILIB.L32;1 18619 76 0 1000 00:01.8 

; COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:OUTPUT/OBJ=OBJ$:OUTPUT MSRC$:OUTPUT/UPDATE=(ENH$: OUTPUT) 

; Size: 855 code + 0 data bytes 


> Run Time: 00:26.6 

; Elapsed Time: 00:58.1 
3 Lines/CPU Min: 3170 

3; Lexemes/CPU-Min: 32415 

: peaeey Used: 284 pages 

; a 


; Compilation Complete 


Sg foe Ree MES, 


Ef. 


4 


. OES 


> aoe 
___ CONF 
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